(widget-color-complete): Don't cons needlessly.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 59edfeff0bdeb447cd289b9f57c6b04a8590713f..b168af703d2ee6eb8ce071b50c9157197b5299d5 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3412,8 +3412,7 @@ To use this type, you must define :match or :match-alternatives."
   (require 'facemenu)                  ; for facemenu-color-alist
   (let* ((prefix (buffer-substring-no-properties (widget-field-start widget)
                                                 (point)))
-        (list (or facemenu-color-alist
-                  (mapcar 'list (defined-colors))))
+        (list (or facemenu-color-alist (defined-colors)))
         (completion (try-completion prefix list)))
     (cond ((eq completion t)
           (message "Exact match."))